home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / standard.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  2.7 KB  |  83 lines
  1. DEFINITION MODULE StandardIO;
  2.  
  3.  
  4. (*
  5. *    Copyright (c) 1985,1986,1987,1988,1989 by
  6. *    ana-systems, Foster City, California.
  7. *    All Rights Reserved.
  8. *
  9. *    This software is furnished under a license and may be used and copied
  10. *    only  in accordance with  the  terms  of  such  license and  with the
  11. *    inclusion of the above copyright notice.  This software or  any other
  12. *    copies thereof may not be provided or otherwise made available to any
  13. *    other  person.   No title to and ownership of the  software is  herby
  14. *    transferred.
  15. *
  16. *    The information in this software is  subject to change without notice
  17. *    and  should  not be construed as a commitment by ana-systems.   No
  18. *    warranty is implied or expressed.
  19. *
  20. *  SCCID  = "1.1    1/26/86"; 
  21. *)
  22. FROM Files IMPORT File;
  23.  
  24. EXPORT QUALIFIED
  25.     SetInput,       GetInput,       SetOutput,      GetOutput,
  26.     EchoMode,       SetEchoMode,    GetEchoMode,
  27.     GetErrorInput,  GetErrorOutput,
  28.     LogMode,        SetLogMode,     GetLogMode,
  29.     SetLog,         GetLog;
  30.  
  31. (* Standard system input and output files *)
  32.  
  33. PROCEDURE SetInput       (     input       : File );
  34. (* Sets the standard input to the value of input *)
  35.  
  36. PROCEDURE GetInput       ( VAR input       : File );
  37. (* Gets the current handle for the standard input File *)
  38.  
  39. PROCEDURE SetOutput      (     output      : File );
  40. (* Sets the standard output to the value of Output *)
  41.  
  42. PROCEDURE GetOutput      ( VAR output      : File );
  43. (* Gets the current handle for the standard output File *)
  44.  
  45.  
  46. (* control of echoing from standard input to standard output *)
  47.  
  48. TYPE
  49.     EchoMode = (echo, noEcho);
  50.  
  51. PROCEDURE SetEchoMode    (     mode        : EchoMode);
  52. (* If "mode" is "echo", causes the standard input to be echoed to the
  53.    current standard output file *)
  54.  
  55. PROCEDURE GetEchoMode    ()                : EchoMode;
  56. (* returns the current value of echo mode *)
  57.  
  58.  
  59. PROCEDURE GetErrorOutput ( VAR errorFile   : File );
  60. (* Error output is the file to which error messages are sent *)
  61.  
  62. PROCEDURE GetErrorInput  ( VAR errorFile   : File );
  63. (* Error input is the file to which a user must respond after an error has
  64.    occured ("press <space> to continue"). Abort, Retry, Ignore *)
  65.  
  66.  
  67. (* Chars written or echoed to the Output file may be copied to the Log file.
  68.    This allows input to be copied to two output files for "photo sessions"
  69.    *)
  70.  
  71. TYPE
  72.     LogMode = (loggingOn, loggingOff);
  73.  
  74. PROCEDURE SetLog         (     log         : File);
  75.  
  76. PROCEDURE GetLog         ( VAR log         : File );
  77.  
  78. PROCEDURE SetLogMode     (     mode        : LogMode);
  79.  
  80. PROCEDURE GetLogMode     ()                : LogMode;
  81.  
  82. END StandardIO.
  83.